A systematic review of positive interactions and the niche in deserts.
Literature search
library(tidyverse)
library(DT)
#Search terms####
search.terms <- read_csv("data/search.terms.csv")
datatable(search.terms)
total.lit <- search.terms %>% filter(search != "final")
total.lit
## # A tibble: 6 × 3
## search terms hits
## <chr> <chr> <int>
## 1 1 plant facilitat* niche* arid* 47
## 2 2 plant facilitat* niche* desert* 32
## 3 3 nurse plant* niche* arid 16
## 4 4 nurse plant* niche* desert 11
## 5 5 positive interact* niche* desert* 21
## 6 6 positive interact* niche* arid* 29
totals <- sum(total.lit$hits)
final.list <- 53
totals-final.list
## [1] 103
#PRISMA####
#use 'prisma' function from PRISMAstatement
#https://cran.r-project.org/web/packages/PRISMAstatement/vignettes/PRISMA.html
prisma.report <-read_csv("data/prisma.csv")
prisma.report
## # A tibble: 53 × 4
## ID inclusion category
## <int> <chr> <chr>
## 1 1 N <NA>
## 2 2 Y <NA>
## 3 3 Y <NA>
## 4 4 N <NA>
## 5 5 Y <NA>
## 6 6 N <NA>
## 7 7 N <NA>
## 8 8 N <NA>
## 9 9 Y <NA>
## 10 10 Y <NA>
## # ... with 43 more rows, and 1 more variables: detailed.reason <chr>
excluded <- prisma.report %>% filter(inclusion == "N")
dim(excluded)
## [1] 24 4
library(PRISMAstatement)
prisma(found = 153,
found_other = 0,
no_dupes = 53,
screened = 53,
screen_exclusions = 24,
full_text = 29,
full_text_exclusions = 0,
qualitative = 0,
quantitative = 29,
width = 800, height = 800)